home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk168 / tinytools / wbtf / wbtf.asm < prev    next >
Assembly Source File  |  1995-03-19  |  1KB  |  60 lines
  1.  
  2. ; A few equs and equrs.
  3.  
  4. KickVerNum     EQU     31 ; >= Kick 1.1
  5. Fatal  EQU     20
  6. Warn   EQU     5
  7. OK     EQU     0
  8.  
  9. RETURN EQUR    D2
  10.  
  11.        INCLUDE "/include/init.i"
  12.  
  13. ; I suppose this is more than sufficient stack for intuition.
  14.  
  15.        STACK   2000
  16.  
  17. ; Open the intuition library
  18.  
  19.        MOVEQ   #Fatal,RETURN
  20.        MOVEQ   #KickVerNum,D0
  21.        LEA     IntuitionName(PC),A1
  22.        MOVE.L  $4.W,A6
  23.        CALL    OpenLibrary
  24.        TST.L   D0
  25.        BEQ.S   FatalExit
  26.  
  27. ; Request that the workbench be sent to front
  28.  
  29.        MOVEQ   #Warn,RETURN
  30.        MOVE.L  D0,A6
  31.        CALL    WBenchToFront
  32.        TST.B   D0
  33.        BNE.S   Exit
  34.  
  35. ; Workbench closed, ask for the workbench to be opened
  36.  
  37.        CALL    OpenWorkBench
  38.        TST.L   D0
  39.        BEQ.S   WarnExit
  40.  
  41. ; Cleanup
  42.  
  43. Exit:
  44.        MOVEQ   #OK,RETURN
  45. WarnExit:
  46.        MOVE.L  A6,A1
  47.        MOVE.L  $4.W,A6
  48.        CALL    CloseLibrary
  49. FatalExit:
  50.        MOVE.L  RETURN,D0
  51.        RTS
  52.  
  53. ; Strings
  54.  
  55. IntuitionName:
  56.        DC.B    'intuition.library',0
  57.        CNOP    0,2
  58.  
  59.        END
  60.